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1, ABSTRACT 

THIS PROGRAM TESTS THE KHUL LINE FREQUENCY CLOCK, IT 
VALIDATES PROPER OPERATION UNOIR BOTH INTERRUPT ANO 
NON-INTERRUPT MODES, JT REQUIRES THE OPERATOR TO MONITOR 
IT'S OPERATION WITH A CLOCK CAPABLE OP MEASURING TJME JN 
SECONDS, 

2, REQUIREMENTS 

2.1 EQUIPMENT 
PQP-11/2B WITH KWtlL 

2.2 STORAGE 

2.2.1 PROGRAM STORAGE - THIS PRQ8RAM OCCUPIES MEMORY PROM 0 THRU 2l?B 

3, LOADING PROCEDURE 

3.1 METHOO 

PROCEDURE POR NORMAL BINARY TAPES SHOULD BE FOLLOWED 

1, ABSOLUTE LOADER must be IN MEMORY 

2, PLACE BINARY TAPE IN READER 

3, LOAD ADDRESS *7500 

4 : , PRESS »StAR?" (PROGRAM WILL LOAD ) 

4, STARTING procedure 

4.1 CONTROL SWITCH SETTINGS 
NOT APPLICABLE 

4,1 STARTING ADDRESS 

200 i 60 HI, LINE FREQUENCY 
202 ■ 90 H>, LINE FREQUENCY 
4’,| PROGRAM AND/OR OPERATOR ACTION 

LOAD PROGRAM INTO MEMORY 
LOAD STARTING ADDRESS 
PRESS "START" 

THE PROGRAM WILL BEGIN RUNNING 










5 i OPERATING PROCEDURE 

5.1 OPERATIONAL, SWITCH settings 

NOT APPLICABLE 

5.2 SUBROUTINES 

5.2.1 TJME 

THIS SUBROUTINE OPERATES THE CLOCK IN INTERRUPT MODE, THE 
PROGRAM ENTERS WITH THE NgMBER OP CLOCK PULSES QESJRED JN 
REGISTER 0 ANQ EXITS WHEN THAT NUMBER IS REACHED, 

6, ERRORS 

6.1 ERROR PRINTOUT 
NONE 

6', 2 ERROR RECOVERY 

THE PROGRAM WJLL HALT ON AN ERROR, TO REPEAT THE SEQUENCE 
THAT CAUSED THE FAILURE PRESS "CONTINUE” OR RESTART AT 
200, IF IT IS OESIRCO TO REPEAT THE ERROR SEQUENCE ON A 
CONTINUOUS BASIS THE OPERATOR CAN REPLACE THE HALT INSTRUCTION 
WJTH A NOP (3«0), 

7', RESTRICTIONS 

7.1 STARTING RESTRICTIONS 
NONE 

7.2 OPERATIONAL RESTRICTIONS 
NONE 

8, MISCELLANEOUS 

NOT APPLICABLE 



PROGRAM DESCRIPTION 


A SERIES OP SMALL, TESTS THAT CHECK 
FUNCTIONS AND CHARACTERISTICS OP THE LINE 


DESCRIPTION 

TEST THAT THE LINE CLOCK INTERRUPT 
ENABLE (BIT 4! IS CLEARED BY THg 
START SEQUENCE’. 


TEST THAT START SEQUENCE SETS THE 
CLOCK FLAG {BIT 7)‘, 


TEST THAT THE CLOCK FLAG WILL SET. 
CLOCK FLAG IS CLEARED ANO THEN PROGRAM 
WAITS A SUFFICIENT AMOUNT OF TIME (80 
MILLISECONDS MINIMUM) FOR THE CLOCK 
FLAG TO REAPPEAR 


test that interrupt enable <bit 

CAN SE SIT', PROCESSOR PRIORITY 
If RAISED TO LEVEL 7 TO DISALLOW 
INTERRUPTS AT THIS TIME, 


TEST THAT THE INTERRUPT ENABLE SIT CAN 
B| CLEARED AFTER IT IS SET, 


TEST THAT THE CLOCK INTERRUPTS TO THE 
PROPER VECTOR ADDRESS (100), PROCESSOR 
PRIORITY IS SET tq LEVEL 4 WHICH SHOULD 
ALLOW A CLOCK INTERRUPT AT LEVEL S', 


TEST THAT THE CLOCK AT PRIORITY LEVEL 
6 WILL INTERRUPT THE PROCESSOR AT 
PRIORITY LEVEL 5, 


TEST THAT THE CLOCK AT PRIORITY LEVEL 
6 WILL NOT INTERRUPT THE PROCESSOR 
AT PRIORITY LEVEL * 


T|ST THAT THE CLOCK AT PRIORITY LEVEL 
6 WILL NOT INTERRUPT THE PROCESSOR 
AT PRIORITY LEVEL 7 



TEST THAT THE PROCESSOR PUSHES THE 
STATUS AND PROGRAM COUNTER ONTO THE 
STACK WHEN INTERRUPTED BY THE CLOCK, 


TEST THAT "RESET" WILL SET THE CLOCK 
FLAG (BIT 7), 


TEST LINE CLOCK REPEATABILITY BY 
CHICKING THAT THE CLOCK PUTS OUT THE 
SAME NUMBER OF PULSES OVER TWO EQUAL 
PERIODS OF TIME USING BOTH INTERRUPT 
AND NQN INTERRUPT MOOES OF OPERATION', 


TEST LINE CLOCK ACCURACY, THIS TEST 
RINGS THE TELETYPE BELL AT THE COMP- 
LETION OF SEVERAL DIFFERENT TIME 
INTERVALS OVER A PERIOD OF ONE MINUTE', 
FROM THE TIME THIS TEST B|S|NS THE BELL 
WILL RING AT THE END OF %, 2, 3. 4. 5, 
10i 30, 30, 40, 00, AND 40 SECONDS; IT 
WILL THEN REPEAT THIS SEQUENCE AS LONG 

as desired; the 10 second intervals 

ARE TIMED BY USING THE CLOCK ALTERNATELY 
IN AN INTERRUPT AND NQN- INTERRUPT MODE, 
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.ENABL ABB 



000000 


• *0 




» TRAP 

CATCHER 0-176 



000024 


i *24 


000024 

00174ft 


PWR1 


000026 

000340 


340 



000200 


,>200 


000200 

000422 


Br CYC60 

(STARTING AOORISS FOR 60 HI, 

000202 

00040? 


BR CYC50 

iSTARfiNO AOORESS FOR 50 Hi, 

000204 

177546 

LKSI 

177546 


000206 

0001 00 

LKVI 

100 


000210 

177566 

TC9RI 

177564 


000212 

177566 

TQBRl 

177566 


000214 

177704 

seen 

•60. 


000216 

177324 

SECS! 

-300. 


000220 

176650 

3CC10I 

-600. 



177776 

CQ6177776 



000240 

NOPa240 
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MAJNDEC-U-DZKWA-A 
D2KWAA', PJ.4 


000222 

012767 

177716 

177764 

CYC50I 

MOV 

#-50,,SECl 

JSET up 90 HZ CONSTANTS 


000230 

012767 

177406 

177760 


MOV 

«-290|iSEC9 



000234 

012747 

177014 

177794 


MOV 

0-900, (SEC10 



000244 

000411 




BH 

START 



000244 

012747 

177704 

177740 

CYC60I 

MOV 

0-60 , 1 5EC1 

I SET UP 60 HZ CONSTANTS 


000234 

012767 

177324 

177734 


MOV 

0-300',, SEC9 



000262 

012767 

176690 

177730 


MQV 

0-600, ,SEC£0 



000270 

012706 

002124 


START 1 

MOV 

0BUFF,%6 



000274 

012737 

001746 

000024 


MQV 

0RWR1 , 0024 



000302 

012737 

000340 

000026 


MOV 

0340,»#26 



000310 

009737 

000042 



TST 

0042 

(LOADED BY A MONITOR 


000314 

001401 




BE® 

LKTEST 

I9R IF NO 


000316 

000009 




beset 


(YES — GENERATE AN INI T 






1 TEST 

THAT START CLEARS LINE CLOCK INTERRUPT ENABLE BIT 


000320 

032777 

000100 

177696 

LKTESTI BIT 

0100I0LKS 



000326 

001402 




8EQ 

LK1 



000330 

000000 




HALT 


(ERROR, CLOCK INTERRUPT ENABLE NOT 1 

CLEARED BY START 

000332 

000772 




SR 

LKTEST 







1 TEST 

THAT START SITS CLOCK FLAG 


000334 

10977? 

177444 


IK1I 

TSTB 

0LKS 



000340 

100402 




an: 

LK2 



000342 

000000 




HALT 


(ERROR, CLOCK FLAG NOT SET BY START 


000344 

000773 




SR 

LK1 







ITIST 

THAT CLOCK FLAG WILL SET 

AFTER SUFFICIENT PERI 00 OF TIME $20 1 

MS MJN) 

000346 

009077 

177632 


LK2I 

clr 

0LKS 



000398 

009000 




CL« 

X0 



000394 

109777 

177424 


LK2AI 

TSTB 

0LKS 

1 1 S CLOCK FLAG SET 


000360 

100404 




SMI 

LK3 



000362 

009200 




INC 

X0 

(NO, INCREMENT COUNT 


000364 

001373 




BNI 

LK2A 

(WAIT SUFFICIENT AMOUNT OF TIME FOR 

CLOCK 

000366 

000000 




halt 


j ERROR, CLOCK FLAG FAJLEO TO SET 


000370 

00076$ 




SR 

LK2 







ITIST 

THAT INTERRUPT ENABLE BIT 

MAY BE SET 


000372 

009077 

177606 


LK3I 

CLR 

0LKS 



000376 

109777 

177602 



TSTB 

•LKS 



000402 

100375 




BPL 

,-4 

(SYNC CLOCK 


000404 

012767 

000340 

177364 


MOV 

0340, CC 

(SET PRIORITY 7 


000412 

012777 

000100 

177964 


MQV 

0100i«LKS 

(CLEAR CLOCK FLAG AND SET INTERRUPT 

ENABLE 

000420 

032777 

000100 

177996 


BJT 

01fg|0LKS 

(IS INTERRUPT ENABLE SETT 


000426 

001002 




BNi 

LK4 



000430 

000000 




HALT 


(ERROR INTERRUPT ENABLE NOT SET 


000432 

00079? 




BR 

LK3 







(TEST 

THAT INTERRUPT ENABLE BIT 

MAY BE CLEARED 


000434 

00507? 

177944 


LK4I 

CLR 

•LKS 



000440 

10977? 

177940 



TSTB 

•L«S 



000444 

100375 




BPL 

,-4 

(SYNC CLOCK 


000446 

012767 

000340 

177322 


MOV 

0340, CC 

(SET PRIORITY 7 


000494 

01277? 

000100 

177922 


MOV 

0100, »LKS 

(CLEAR CLOCK FLAG AND SET INTERRUPT 

ENAB-LE 

000462 

00507? 

177916 



CLR 

•LKS 

(CLEAR INTERRUPT ENABLE 


000466 

032777 

000100 

177510 


BJT 

0100, «LKS 



000474 

001402 




SEO 

LK9 

* IS INTERRUPT ENABLE CLEARED 


000476 

000000 




HALT 


(ERROR, ERROR INTERRUPT BJT CAN NOT 

be cleared 
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itest 

THAT CLOCK INTERRUPTS TO 

CORRECT VECTOR ADDRESS 

000502 

012706 

002124 


LK5| 

MOV 

PBUFF.X6 


00050$ 

01276? 

000200 

177262 


MOV 

P200.CC 

(SET PROCESSOR PRIORITY 4 

000514 

012777 

000994 

177464 


MOV 

•LK9B,»LKV 

1 SET UP VECTOR RETURN POINTER 

000522 

003077 

177496 



CLP 

•LKS 


000526 

105777 

177432 



TSTB 

•LKS 


000532 

100375 




9PL 

■ * A 

1 SYNC CLOCK 

000534 

01277? 

000100 

177442 


MOV 

P100.PLKS 

(ENABLE INTERRUPT 

000542 

003000 




CL« 

X0 


000544 

005200 



LK5AI 

INC 

X0 


000546 

00137$ 




BNE 

LK9A 

(WAIT TOR INTERRUPT 

000590 

000000 




HALT 


1 ERROR, INTERRUPT FAILED TO OCCUR 

000532 

00079J 




BP 

LK9 


000594 

103777 

177434 


LK9BI 

TSTB 

•LKS 

(ENTER HERE JF INTERRUPTED 

000560 

100402 




BMI 

LKS 


000562 

000000 




HALT 


(ERROR, INTERRUPT NOT CAUSED BY CLOCK 

000564 

000746 




8R 

LK3 






ITEST 

THAT CLOCK WILL INTERRUPT 

WITH PROCESSOR At PRIORITY 3 

000566 

003077 

177412 


LK6I 

CLP 

•LKS 


000972 

10377? 

177406 



TSTB 

•LKS 


000576 

100379 




BPL 

,•4 

(SYNC CLOCK 

000600 

013706 

002134 



MOV 

PBUFF ,X6 


000604 

01376? 

000240 

177164 


MOV 

P240.CC 

(SET PRIORITY 9 

000612 

04277? 

000640 

177366 


MOV 

PLK6I.PLKV 

(SET UP VECTOR RETURN POINTER 

000620 

01377? 

000100 

177396 


MOV 

P1«0.*LKS 

(ENABLE INTERRUPT 

000636 

009000 




CLR 

X0 


000630 

009200 



LK6AI 

INC 

X0 


000632 

001376 




BNE 

LK6A 

(WAIT FOR INTERRUPT 

000634 

000000 




halt 


(ERROR ( INTERRUPT FAILED TO OCCUR 

000636 

000793 




BR 

LK6 


000640 

103777 

177340 


LK6BI 

TSTB 

•LKS 

(ENTER HERE IF INTERRUPTED 

000644 

100402 




BMI 

LK7 


000646 

000000 




halt 


lERROR, INTERRUPT NOT CAUSED BY CLOCK 

000690 

000746 




BR 

LK6 






iTest 

THAT CLOCK HILL NOT INTERRUPT WJTH PROCESSOR PRIORITY 6 

000692 

003077 

177326 


LK7I 

clr 

•LKS 


000696 

109777 

177322 



TSTB 

•LKS 

• 

000662 

100375 




BPL 

i*4 

(SYNC CLOCK 

000664 

012706 

002124 



MOV 

PBUFF, X6 


000670 

012767 

000300 

177100 


MOV 

P300.CC 

1 SET PRIORITY 6 

000676 

01277? 

000726 

177302 


MQV 

PLK7B,*LKV 

(SET UP VECTOR RETURN 

000704 

01277? 

000100 

177272 


MQV 

P100,»LKS 

(ENABLE INTERRUPT 

000712 

10377? 

177266 


lktai 

TSTB 

•LKS 


000716 

100375 




BPL 

LK7A 

(WAIT FOR NEXT CLOCK FLA8 

000720 

000240 




NOP 



000722 

000240 




NOP 


(GIVE CLOCK EXTRA TJME TO INTERRUPT 

000724 

000402 




BR 

LKS 


000736 

000000 



LK7BI 

halt 


(ERROR, CLOCK INTERRUPTED WITHOUT HAVING PRJORJTY 

000730 

000750 




BR 

LK7 
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ITEST 

THAT CLOCK WILL NOT INTERRUPT WJTh PR0CE3SR AT PRIORITY 7 

000732 

003077 

177246 


IKS 1 

CLR 

•LKS 


000736 

103777 

177242 



T5TB 

•LKS 


000742 

100375 




0PL 

i" 4 

ISYNC CLOCK 

000744 

012706 

002124 



MOV 

*SUFF,X4 


000730 

012767 

000340 

177020 


MOV 

*340, CC 

(SET PRIORITY 7 

000736 

01277? 

001006 

477222 


MOV 

*LK9I«*LKV 

(SIT UP VECTOR RETURN 

000764 

01277? 

000100 

177212 


MOV 

#100iPLK5 

(enable interrupt 

000772 

103777 

177206 


LKSAI 

TSTB 

•LKS 


000776 

100375 




SPL 

LKS* 

(WAIT FOR NEXT CLOCK FLAO 

001000 

000240 




NOP 



001002 

000240 




NOP 


(GIVE CLOCK EXTRA T I HE TO INTERRUPT 

001004 

000402 




BR 

LK« 


001006 

000000 



LK80I 

HALT 


(ERROR, CLOCK INTERRUPTED WITHOUT HAVING PRIORITY 

001010 

000730 




BR 

LKS 






ITEST 

THAT CLOCK INTERRUPT 

PUSHES CONDITION COOES AND PROGRAM COUNTER ONTO STACK 

001012 

00307? 

177166 


LK*I 

clr 

•LKS 


001016 

103777 

177162 



TST8 

•LKS 


001022 

100375 




BPL 

,«4 

(SYNC CLOCK 

001024 

012706 

002124 



MQV 

*BUFF,X6 


001030 

003067 

001066 



CLR 

BUFi 


001034 

003067 

001060 



clr 

BUF2 


001040 

01277? 

001066 

177140 


MOV 

•LK9A,*LKV 

(SET UP VICTOR RETURN 

001046 

012777 

000100 

177130 


MOV 

*100,»LKS 

(ENABLE INTERRUPT 

0010P4 

01276? 

000200 

174714 


MQV 

*200i CC 

(SET PRIORITY 4 

001062 

00027? 




+SECISEVJ8EII8CN 

(SET ALL CONDITION COOES 

001064 

000001 




WAIT 


(WAIT PQR INTERRUPT 

001066 

082767 

000217 

001026 

LK9AI 

CMP 

*817, BUFI 


001074 

001402 




BEQ 

LK9B 


001076 

000000 




halt 


(ERROR DID NOT PUSH CORRECT CC ONTO STACK 

001100 

000744 




IR 

LK» 


001102 

022767 

001066 

001010 

LK99I 

CMP 

*LK9A|BUF2 


001110 

001402 




BEQ 

LK10 


001112 

000000 




HALT 


(ERROR, DJO NO? PUSH CORRECT PC ONTO STACK 

001114 

00073$ 




BR 

LK9 






HIST 

THAT RESET SETS CLOCK 

FLAG 

001116 

00307? 

177062 


LK10! 

CLR 

•LKS 

(CLEAR CLOCK FLAG 

001122 

10377? 

177036 



TSTB 

•LKS 


001126 

100375 




BPL 

,•4 

1 WAIT FOR CLOCK FLAG 

001130 

003077 

177030 



clr 

•LKS 


001134 

000005 




RESET 


(SHOULD CLEAR CLOCK FLAG 

001136 

103777 

177042 



TSTB 

•LKS 


001142 

100402 




BMI 

LK11 


001144 

000000 




HALT 


(ERROR, RESET OIDN# T CLEAR CLOCK FLAG 

001146 

000763 




BR 

LK10 
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DZKWAA'.Pli 


001150 005000 
001152 005001 
001154 013757 
001118 005077 
001155 105777 
001172 100375 
001174 005077 
001200 105777 
001204 100375 
001205 005077 
001212 105777 
001215 100003 
001230 005201 
001222 005077 
001225 005200 
001230 001370 
001232 005000 
001234 005002 
001235 005077 
001242 105777 
001245 100379 
001290 005077 
001294 10977? 
001250 100379 
001252 00907? 
001255 10577? 
001272 10000) 
001274 005202 
0012.75 00507? 
001302 005200 
001304 001370 
001305 020102 
001310 001402 
001312 000000 
001314 000719 
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I TEST LINE CLOCK REPEATABILITY 

IMAKE SURE THAT OVER TWO EQUAL PERIODS OF TIME 

I THE CLOCK PUTS OUT THE SAME NUMBER OF PULSES 



LKlll 

CLR 

X0 



CLR 

*1 

000340 175514 


MOV 

5340, CC 

177015 


CLP 

•LKS 

177012 


TSTB 

•LKS 



BPL 

.• 4 

177004 


CL« 

•LK8 

177000 


TSTB 

•LKS 



BPL 

,•4 

175772 


CLP 

•LKS 

175745 

LK11AI 

TSTB 

•LK8 



IPL 

LKlll 



INC 

XI 

175755 


CLP 

•LKS 


LKilBl 

INC 

X0 



INI 

LK11A 



CLP 

X0 



CLP 

X2 

175742 


CLR 

•LKS 

175735 


TSTB 

•LKS 



BPL 

• ■4 

175710 


CLP 

•LKS 

17*724 


TSTB 

•LKS 



IPL 

,-4 

175715 


CL" 

•LKS 

175712 

LKitCI 

TSTB 

•LKS 



BPL 

LKllO 



INC 

X2 

175702 


CLP 

•LKS 


LK110I 

INC 

X0 



BNE 

LKUC 



CMP 

XI, X2 



BEQ 

LKUC 



HALT 




BR 

LKll 


iCLEAR 1ST TIME COUNT 
I CLEAR 1ST CLOCK COUNT 
I'SET PRIORITY 7 


I SYNC CLOCK 2ND TIME TO MAKE SURE 

US CLOCK FLAG SET 
INO 

1*1 To CLOCK COUNT 
I CLEAR CLOCK if SET 
1*1 TO TIME OOQNT 
iREPEAf UNTIL X0a0 
•CLEAR 2NQ TIME COUNT 
('CLEAR 2N0 CLOCK COUNT 


I SYNC CLOCK 2ND TIME TO MAKE SURE 

US CLOCK FLAG SET 
INC 

1*1 TO CLOCK COUNT 
I'CllEAR CLOCK JF SET 
1+1 TO TIME COUNT 
I REPEAT UNTIL X0«0 

US 1ST CLOCK COUNT EQUAL TO 2ND CLOCK COUNTY 
1 YES 

i error, CLOCK flag occurred different 
INUMBER of TIMES IN EQUAL PERIODS 
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LINE rHEOUENCY CLOCK f|ST 


I TEST LINE 


001316 

012767 

000200 

176432 

LK11E! 

MOV 

001324 

003000 




clr 

001326 

003001 




CL" 

001330 

012777 

001404 

17*630 


MOV 

001336 

012767 

000300 

176336 


MOV 

001344 

005077 

176634 



CL" 

001330 

103777 

176630 



TSTB 

001334 

100375 




8PL 

001316 

005077 

176622 



CLR 

001362 

103777 

176616 



TSTB 

001366 

100375 




■PL 

001370 

012777 

000100 

176606 


MOV 

001376 

009200 




INC 

001400 

001376 




INI 

001402 

000402 




BR 

001404 

005201 



LK11PI 

INC 

001406 

000002 




RTI 

001410 

009000 



LK116I 

CL" 

001412 

005002 




CL" 

001414 

012777 

001470 

176364 


MOV 

001422 

012767 

000300 

176432 


MOV 

001430 

003077 

17*330 



CL" 

001434 

103777 

176344 



TSTB 

001440 

100375 




■PL 

001442 

003077 

176336 



CL" 

001446 

103777 

176532 



TSTB 

001432 

100375 




IPL 

001434 

04*777 

000100 

176322 


MOV 

001462 

005200 




INC 

001414 

001376 




BNI 

001466 

000402 




BR 

001470 

003202 



LKilHI 

INC 

001472 

000002 




RTI 

001474 

020102 



LK11JI 

CMP 

001476 

001402 




iEQ 

001300 

000000 




HALT 

001302 

000703 




8R 
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REPEATABILITY WITS INTERRUPT 

nm , cc isit priority a 

X0 (CLEAR 1ST TIME COUNT 

XI (CLEAR 1ST CLOCK COUNT 

•tKilMLKV 

*3B0il0Z 

•LKS 

•LKS 

>4 I SYNC CLOCK 

*LKS 

•LKS , 

,-4 (SYNC CLOCK 2ND TIME TO MAKE SURE 

*100'*LKS (ENABLE INTERRUPT 

X0 

,•8 I Wilt POR CLOCK INTERRUPTS 

LK118 

xi 

X0 (CLEAR 8NQ TIME COUNT 

X2 i'CLEAR 2ND CLOCK COUNT 

*LK11H,»LKV 

«300il02 

•LKS 

•LKS 

,«4 (SYNC CLOCK 

•LKS 

•LKS 

,•4 | SYNC CLOCK SECOND TIME TO MAKE SURE 

*|00«*LKS (ENABLE INTERRUPT 

,•2 (WAIT PQR CLOCK INTERRUPTS 

LK11J 

X2 

XliX2 (IS 1ST CLOCK COUNT EQUAL TO 2ND CLOCK COUNT 

LK12 (YES 

(ERROR, CLOCK INTERRUPT OCCURRED DIFFERENT 
LK11E (NUMBER Of TIMES IN EQUAL PERIODS 
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I TEST CLOCK ACCURACY 

JRINO BELL AFTER EACH OF FJRSTtS) I SECONO INTERVALS 
(RING BELL AFTER 10 SECONO INTERVAL 


001904 

012708 

002134 

LK12I MOV 

• BUFF i *6 


001910 

018700 

174900 

MOV 

SEC1,X0 


001914 

004787 

000192 

J$R 

*7, TIME 

1 SELL AFTER 1 SECOND 

001930 

018700 

174470 

MOV 

SEO1#X0 


001934 

004747 

000142 

JS« 

07, TIME 

(BELL AFTER 3 SEC, 

001950 

014700 

174440 

MOV 

SEC1,X0 

I'BELL AFTER 3 |EC‘, 

001934 

004747 

000132 

J5R 

X7,TIME 

001940 

014700 

174490 

MOV 

SIOiiSB 
*7, TIME 


001944 

004747 

000132 

USR 

(BELL AFTER 4 SEC, 

001990 

014700 

178440 

MOV 

sceiiXB 

I'BELL after 1 SEC 

001994 

004747 

000112 

JSR 

*7, TIME 

001980 

014700 

174432 

MOV 

SEC9.X0 

IBELL AFTER 10 SEC 

INTERVALS ALTERNATING BETWEEN INTERRUPT and non INTERRUPT MODES 

001944 

004747 

000102 

USR 

7*7 # T I ME 

(RING BELL AT 

10 SECOND 


001970 

01270? 

177779 


MOV 

#•3, S3 


001974 

016700 

174420 

LK13AI 

MOV 

SEC10,S0 


001400 

004747 

000066 


USR 

X7,TIME 


001004 

009203 



INC 

S3 


001404 

001011 

013702 



BNI 

LK13S 


001410 

000042 


MOV 

•*43, *2 


001414 

001409 



IEQ 

GOAON 


001014 

000009 



RESET 



001820 

004712 


LOGIC! 

USR 

*7,(2! 


001432 

000240 



NOP 



001814 

001020 

000340 

000340 



NOP 

NOP 



001430 

000729 


GOAGNI 

BR 

LK13 





(RING 

BELL AFTER 10 SECONDS 

USING CLOCK FLAG (NON INTERRUPT) 

001432 

014700 

178362 

LK12BI 

MOV 

3EC10,*0 

1 CLEAR clock FLAG 

001436 

009077 

174342 

LK12CI 

clr 

PLKS 

001642 

109777 

174338 


T|TB 

•LKS 

1 WAIT FOR CLOCK FLAG 

001646 

100379 


SPL 

• •4 


001690 

009200 



INC 

X0 

(FINISHED 10 SECONDS? 

001692 

001371 



BNE 

LK12C 

(NO 

001694 

109777 

176330 


TSTB 

PTCSR 

(YES, RJNG BELL 

001640 

100379 



SPL 

• ■4 


001662 

01377? 

000207 

174322 

MOV 

P207.PTOBR 


001670 

000741 


BR 

LK12A 

I'RING BELL EVERT 10 SECONDS 
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1 THIS routine 

«IN8S BILL AT 

INTERVAL DETERMINED IY REGISTER 0 

001672 

012777 

001720 

176306 

TJMEI 

MOV 

#TIMI2 I RLKV 

1 SET UP VECTOR RETURN 

001700 

012767 

000200 

176070 


MOV 

*200. CO 

ISET PROCESSOR PRIORITY 4 

001706 

01277? 

000100 

176270 

TIMEII 

MOV 

#100i»LKS 

lENABLE INTERRUPT 

001714 

00000 1 




WAIT 


(WAIT FOR INTERRUPT 

001716 

000773 




BR 

TIM|1 

1 AFTER SERVICING INTERRUPT RETURN HERE 

001720 

005200 



TIME* 1 

INC 

30 

I TEST FOR COUNT OONE 

001722 

001401 




8EQ 

.♦4 

1 YES 

001724 

000002 




RTI 


1 NO. WAIT FOR NEXT INTERRUPT 

001726 

103777 

176236 



TSTB 

•TCSR 


001758 

100375 




BPL 

1 "4 


001734 

012777 

000207 

176230 


MOV 

*207. PTQBR 

IRIN6 BELL 

001742 

022621 




CMP 

dip. m* 


001744 

000207 




RTS 

37 


001746 

012737 

001731 

000024 

PWRil 

MOV 

fPWRUP.*i24 


0017S4 

000000 




HALT 



001716 

012706 

002124 


PWRUPI 

MOV 

•BUFF, 36 


001762 

012737 

001746 

000024 


MOV 

f»PWRl|i#24 


001770 

012702 

002126 



MOV 

«MS01|32 


001774 

103777 

176210 


TYPE I 

TST0 

• TCSR 


002000 

100375 




BPL 

TYPE 


002002 

112277 

176204 



MQVB 

(2K.PTQBR 


002006 

103712 




TSTB 

(21 


002010 

001371 




BNE 

TYPE 


002012 

000005 




RESET 



002014 

000167 

174300 



JMP 

LKTEST 


002020 

000000 



TERMNLI 

0 




002120 




,«TERMNL*100 


002120 

000000 



BUF2I 

0 



002132 

000000 



sum 

0 



002124 

000000 



BUFFI 

0 



002136 

003019 

042322 

052123 

MS51I 

1 ASCII 

<15><12>/RESTART!N8 AFTER A POWER PAILURE/<13><12> 

002134 

051101 

044324 

043916 





002142 

040440 

052106 

051103 





002130 

040440 

050040 

053517 





002156 

051105 

043040 

044501 





002164 

052514 

042922 

009015 





002172 

000 








i END 



a 

MA|NOEC>U«DIKMA>A LINE FREQUENCY CLOCK 

DZKWAA', Rll SYMBOL TABLE 


BUFF 002124 
CYC50 000822 
LKTEST 000120 
LK11 001190 
LKUD 001102 
LK11H 001470 
LKIZB 001432 
LK1 000178 
L.KSB 000994 
LK7 000492 
LKIA 000778 
LK9§ 001102 
RWRUP 001794 
9IC9 000214 
TIRMNL 002020 
TYRE 001774 


BUFl 002122 
CYC40 000244 
LKV 000204 
LKUA 001212 
LK11E 001114 
LKUJ 001474 
LK12C 001434 
LK4 000434 
LK4 000944 
LK7A 000718 
LK«8 001004 
LOO I C 001420 
RWR1 001744 
START 000270 
TIME 001472 
, ■ 002171 


ERRORS DETECTED! 0 



TEST 

MACYll',414 

10-MAYA72 

10 | 09 RASE 

SUEZ 

002120 

cc 

• 17777| 

QQA5N 

001430 

LKS 

000204 

LK1 

000134 

LK|0 

00111* 

LK11B 

001224 

LKSlC 

001244 

LK11F 

001404 

LKlie 

001410 

LK12 

001904 

LKI2A 

001074 

LK8 

000344 

LK8A 

000394 

LK9 

000902 

LK0A 

000944 

LK4A 

000430 

LK48 

000440 

LK7B 

000724 

LK8 

000732 

LK9 

001012 

LK9A 

001141 

MSQ1 

002124 

NOR 

■ 000240 

scci 

0002i« 

SIC10 

000220 

TCSR 

000210 

fOiR 

000218 

TIME! 

001704 

TIMI8 

001720 
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